140 VI =  INT (V):F = V - VI:F$ = "   "
 141  IF F > .0625 THEN F$ = "1/8": IF F > .1625 THEN F$ = "1/5": IF F > .225 THEN F$ = "1/4": IF F > .291666667 THEN F$ = "1/3": IF F > .354166667 THEN F$ = "3/8": IF F > .3875 THEN F$ = "2/5": IF F > .45 THEN F$ = "1/2": GOTO 143
 142  GOTO 144
 143  IF F > .55 THEN F$ = "4/5": IF F > .6125 THEN F$ = "5/8": IF F > .645833333 THEN F$ = "3/4": IF F > .775 THEN F$ = "4/5": IF F > .8375 THEN F$ = "7/8": IF F > .9375 THEN F$ = "":VI = VI + 1
 144 VI$ =  STR$ (VI): IF VI = 0 THEN VI$ = " "
 145 F$ = VI$ + " " + F$: RETURN